#-*-perl-*-
use Test::More qw(no_plan);
use strict;
use warnings;
use lib '../lib';

use_ok 'AlienArena::Server';
use_ok 'AlienArena::Server::Properties';
ok my $server = AlienArena::Server->new();
my $prop = AlienArena::Server::Properties->new($server,'127.0.0.1',27901,'s3kr1t');
$prop->_name('fredserv');
$prop->_admin('Fred');

isa_ok $prop, 'AlienArena::Server::Properties';
is $prop->ip, '127.0.0.1', 'ip field';
is $prop->host, '127.0.0.1', 'host alias';
is $prop->pass, 's3kr1t', 'pass field';
is $prop->name,'fredserv', 'name field';
is $prop->admin,'Fred','admin field';

